Release 10.1A: OpenEdge Development:
Progress 4GL Reference

DELETE WIDGET statement

Deletes one or more dynamic widgets.

Syntax

DELETE WIDGET widget-handle [ widget-handle ] ...

widget-handle

The handle of a dynamic widget.

Example

In the following example, the DELETE WIDGET statements deletes the dynamic button that you select:

r-delwid.p

DEFINE VARIABLE wh-tmp AS WIDGET-HANDLE. DEFINE VARIABLE i AS INTEGER NO-UNDO. DEFINE BUTTON b_quit LABEL "Quit" AUTO-ENDKEY. DEFINE BUTTON b_make LABEL "Make Buttons". DEFINE FRAME butt-frame b_make b_quit WITH CENTERED ROW 2. DEFINE FRAME new-buttons WITH WIDTH 48 CENTERED TITLE "New Buttons". FRAME new-buttons:HEIGHT-CHARS = 3. ON CHOOSE OF b_make IN FRAME butt-frame DO: DISABLE b_make WITH FRAME butt-frame. DO i = 1 TO 10: CREATE BUTTON wh-tmp ASSIGN FRAME = FRAME new-buttons:HANDLE COLUMN = i * 4 LABEL = STRING(i) SENSITIVE = TRUE VISIBLE = TRUE TRIGGERS: ON CHOOSE PERSISTENT RUN del-self. END. END. END. ENABLE b_make b_quit WITH FRAME butt-frame. WAIT-FOR CHOOSE OF b_quit IN FRAME butt-frame. PROCEDURE del-self: IF SELF:PREV-SIBLING = ? AND SELF:NEXT-SIBLING = ? THEN DO: HIDE FRAME new-buttons. ENABLE b_make WITH FRAME butt-frame. END. MESSAGE "Deleting Widget, Button" SELF:LABEL. DELETE WIDGET SELF. END.

Notes

If you do not explicitly delete a dynamically created widget, it is deleted when its widget pool is deleted. If you do not create a new unnamed widget pool and do not explicitly specify a named widget pool when you create the widgets, all dynamic widgets are placed in the session pool. The session pool is not deleted until the OpenEdge session that created it ends.
If widget-handle refers to a control-frame, any ActiveX control associated with the widget is also deleted. For more information on ActiveX support in Progress, see OpenEdge Development: Programming Interfaces .
For SpeedScript, use with buffer-field, buffer-object, buffer, and query-object handles.

See also

CREATE widget statement